module m 
  use oad_active

  type(active) :: aVar
  double precision :: pVar

end module 
